home *** CD-ROM | disk | FTP | other *** search
/ Whiteline: Alpha / Whiteline Alpha.iso / tools / cpx_acc / cpxbasic / beispiel / ascii.bas next >
Encoding:
BASIC Source File  |  1994-09-22  |  293 b   |  13 lines
  1. 10   REM Ausgabe einer Ascii-Tabelle
  2. 20   USING$:CLS
  3. 30   FPRINT '  ',:FOR i=0 TO $F:FPRINT MID$(HEX$ i,2);:NEXT
  4. 40   FPRINT:FPRINT
  5. 50   FOR i=2 TO $F
  6. 60     FPRINT MID$(HEX$ i,2),' ';
  7. 70     FOR j=0 TO $F
  8. 80       FPRINT CHR$(i*16+j);
  9. 90     NEXT
  10. 100    FPRINT
  11. 110  NEXT
  12. 120  END
  13.